﻿Public Class ctrlNhaCungCap
    Private _NhaCungCap As tbNhaCungCap
    Property NhaCungCap As tbNhaCungCap
        Get
            Return _NhaCungCap
        End Get
        Set(value As tbNhaCungCap)
            If value Is Nothing Then Exit Property
            _NhaCungCap = value
            bsNhaCungCap.DataSource = NhaCungCap
        End Set
    End Property

    Private Sub btnCapNhat_Click(sender As Object, e As EventArgs) Handles btnCapNhat.Click
        bsCuaHang.DataSource = From ch In dt.tbCuaHangs Select ch Order By ch.TenCuaHang Ascending
    End Sub
End Class
